# @arthor quoc.le
#! C:/Perl/bin/perl -w
use strict;
use warnings;
use diagnostics;
my $out = join("-", reverse "r0", "rt0"); # Hello, world
print $out;